home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 1 / Literacy Segments Part 1 / background_112895.txt < prev    next >
Text File  |  1989-08-22  |  12KB  |  588 lines
  1. -- background: 112895 from stack: in
  2. -- bmap block id: 112905
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 1.2.3 Practice2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   get line 1 of answerTracker
  11.   repeat with i = 1 to 5
  12.     if item i of it = "y"
  13.     then set the hilite of bg btn ("item" & i) to true
  14.   else set the hilite of bg btn ("item" & i) to false
  15. end repeat
  16. pass openCard
  17. end openCard
  18.  
  19. on closeCard
  20.   global answerTracker
  21.   repeat with i = 1 to 5
  22.     if the hilite of bg btn ("item" & i)
  23.     then put "y" into item i of line 1 of answerTracker
  24.   else put "n" into item i of line 1 of answerTracker
  25. end repeat
  26. pass closeCard
  27. end closeCard
  28.  
  29. on hideFeedback
  30.   lock screen
  31.   hide fld "Feedback1"
  32.   hide fld "Feedback2"
  33.   hide fld "Feedback3"
  34.   hide fld "Feedback4"
  35.   hide fld "CorrectAnswer"
  36.   hide fld "MasterFeedback"
  37.   hide bg btn "Done"
  38.   unlock screen
  39. end hideFeedback
  40.  
  41. on showFeedback
  42.   lock screen
  43.   show fld "Feedback1"
  44.   show fld "Feedback2"
  45.   show fld "Feedback3"
  46.   show fld "Feedback4"
  47.   show fld "CorrectAnswer"
  48.   show fld "MasterFeedback"
  49.   show bg btn "Done"
  50.   unlock screen
  51. end showFeedback
  52.  
  53.  
  54. -- part 3 (field)
  55. -- low flags: 01
  56. -- high flags: 0000
  57. -- rect: left=18 top=1 right=38 bottom=442
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 156
  62. -- text size: 24
  63. -- style flags: 10240
  64. -- line height: 32
  65. -- part name: Title
  66.  
  67.  
  68. -- part 5 (field)
  69. -- low flags: 81
  70. -- high flags: 0001
  71. -- rect: left=423 top=0 right=13 bottom=466
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 65535
  75. -- font id: 4
  76. -- text size: 9
  77. -- style flags: 0
  78. -- line height: 12
  79. -- part name: CardTitle
  80.  
  81.  
  82. -- part 14 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=443 top=5 right=72 bottom=512
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Instant Reference
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   instantReference "1.2.3"
  97. end mouseUp
  98.  
  99.  
  100. -- part 15 (button)
  101. -- low flags: 00
  102. -- high flags: 2000
  103. -- rect: left=480 top=143 right=172 bottom=511
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 1310 / 1310
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Student Services
  112. ----- HyperTalk script -----
  113. on mousedown
  114.   SSpopUp
  115. end mousedown
  116.  
  117. on mouseup
  118.   if the mouseloc is not within the rect of me then exit to hyperCard
  119.   doSS
  120. end mouseup
  121.  
  122.  
  123.  
  124. -- part 16 (button)
  125. -- low flags: 00
  126. -- high flags: 2000
  127. -- rect: left=482 top=176 right=205 bottom=511
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 162 / 162
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: Help
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   Help
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 19 (button)
  144. -- low flags: 00
  145. -- high flags: 0000
  146. -- rect: left=493 top=319 right=341 bottom=512
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 1400 / 1400
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Next
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.  
  158. end mouseUp
  159.  
  160.  
  161. -- part 20 (field)
  162. -- low flags: 01
  163. -- high flags: 0000
  164. -- rect: left=16 top=38 right=65 bottom=445
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 0
  168. -- font id: 156
  169. -- text size: 20
  170. -- style flags: 0
  171. -- line height: 26
  172. -- part name: Subtitle
  173.  
  174.  
  175. -- part 21 (field)
  176. -- low flags: 01
  177. -- high flags: 0000
  178. -- rect: left=63 top=70 right=110 bottom=443
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 0
  182. -- font id: 156
  183. -- text size: 16
  184. -- style flags: 0
  185. -- line height: 17
  186. -- part name: Question
  187.  
  188.  
  189. -- part 22 (field)
  190. -- low flags: 01
  191. -- high flags: 0000
  192. -- rect: left=63 top=114 right=134 bottom=444
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 0
  196. -- font id: 3
  197. -- text size: 10
  198. -- style flags: 256
  199. -- line height: 15
  200. -- part name: Instruction
  201.  
  202.  
  203. -- part 23 (field)
  204. -- low flags: 01
  205. -- high flags: 2004
  206. -- rect: left=67 top=161 right=188 bottom=447
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 0
  210. -- font id: 156
  211. -- text size: 16
  212. -- style flags: 0
  213. -- line height: 17
  214. -- part name: Answer1
  215.  
  216.  
  217. -- part 25 (field)
  218. -- low flags: 01
  219. -- high flags: 2004
  220. -- rect: left=67 top=186 right=213 bottom=447
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 0
  224. -- font id: 156
  225. -- text size: 16
  226. -- style flags: 0
  227. -- line height: 17
  228. -- part name: Answer2
  229.  
  230.  
  231. -- part 26 (field)
  232. -- low flags: 01
  233. -- high flags: 2004
  234. -- rect: left=67 top=211 right=238 bottom=447
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 0
  238. -- font id: 156
  239. -- text size: 16
  240. -- style flags: 0
  241. -- line height: 17
  242. -- part name: Answer3
  243.  
  244.  
  245. -- part 31 (button)
  246. -- low flags: 00
  247. -- high flags: A004
  248. -- rect: left=268 top=321 right=340 bottom=413
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 1
  252. -- font id: 0
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: Answer
  257. ----- HyperTalk script -----
  258. on mouseUp
  259.   global answerTracker
  260.   lock screen
  261.   put "t,t,t,t,t" into theList
  262.   repeat with i = 1 to number of items in theList
  263.     if item i of theList = "t"
  264.     then set the hilite of bg btn ("item" & i) to true
  265.   else set the hilite of bg btn ("item" & i) to false
  266. end repeat
  267. put fld "CorrectAnswer" into fld "MasterFeedback"
  268. show fld "MasterFeedback"
  269. show bg btn "Done"
  270. unlock screen
  271. end mouseUp
  272.  
  273.  
  274. -- part 33 (button)
  275. -- low flags: 00
  276. -- high flags: 0000
  277. -- rect: left=478 top=319 right=341 bottom=498
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 1401 / 1401
  280. -- text alignment: 1
  281. -- font id: 0
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: Prev
  286. ----- HyperTalk script -----
  287. on mouseUp
  288.  
  289. end mouseUp
  290.  
  291.  
  292. -- part 34 (field)
  293. -- low flags: 81
  294. -- high flags: 2007
  295. -- rect: left=8 top=36 right=94 bottom=231
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 0
  299. -- font id: 156
  300. -- text size: 16
  301. -- style flags: 0
  302. -- line height: 17
  303. -- part name: Feedback1
  304.  
  305.  
  306. -- part 36 (field)
  307. -- low flags: 81
  308. -- high flags: 2007
  309. -- rect: left=8 top=159 right=216 bottom=231
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 0
  313. -- font id: 156
  314. -- text size: 16
  315. -- style flags: 0
  316. -- line height: 17
  317. -- part name: Feedback3
  318.  
  319.  
  320. -- part 37 (field)
  321. -- low flags: 81
  322. -- high flags: 2007
  323. -- rect: left=8 top=219 right=277 bottom=231
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 0 / 0
  326. -- text alignment: 0
  327. -- font id: 156
  328. -- text size: 16
  329. -- style flags: 0
  330. -- line height: 17
  331. -- part name: Feedback4
  332.  
  333.  
  334. -- part 39 (field)
  335. -- low flags: 81
  336. -- high flags: 2007
  337. -- rect: left=8 top=280 right=338 bottom=231
  338. -- title width / last selected line: 0
  339. -- icon id / first selected line: 0 / 0
  340. -- text alignment: 0
  341. -- font id: 156
  342. -- text size: 16
  343. -- style flags: 0
  344. -- line height: 17
  345. -- part name: CorrectAnswer
  346.  
  347.  
  348. -- part 42 (field)
  349. -- low flags: 81
  350. -- high flags: 2007
  351. -- rect: left=8 top=97 right=155 bottom=231
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 0 / 0
  354. -- text alignment: 0
  355. -- font id: 156
  356. -- text size: 16
  357. -- style flags: 0
  358. -- line height: 17
  359. -- part name: Feedback2
  360.  
  361.  
  362. -- part 51 (button)
  363. -- low flags: 00
  364. -- high flags: 2000
  365. -- rect: left=482 top=294 right=320 bottom=509
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 1236 / 1236
  368. -- text alignment: 1
  369. -- font id: 0
  370. -- text size: 12
  371. -- style flags: 0
  372. -- line height: 16
  373. -- part name: Last Menu
  374. ----- HyperTalk script -----
  375. on mouseUp
  376.   go cd "‚ÄúNetwork‚Äù Defined P/1"
  377. end mouseUp
  378.  
  379.  
  380.  
  381. -- part 53 (button)
  382. -- low flags: 00
  383. -- high flags: 2000
  384. -- rect: left=482 top=208 right=234 bottom=509
  385. -- title width / last selected line: 0
  386. -- icon id / first selected line: 1234 / 1234
  387. -- text alignment: 1
  388. -- font id: 0
  389. -- text size: 12
  390. -- style flags: 0
  391. -- line height: 16
  392. -- part name: Lesson
  393. ----- HyperTalk script -----
  394. on mouseUp
  395.   Lesson "1.2.3"
  396. end mouseUp
  397.  
  398.  
  399.  
  400. -- part 61 (field)
  401. -- low flags: 01
  402. -- high flags: 2004
  403. -- rect: left=67 top=236 right=263 bottom=447
  404. -- title width / last selected line: 0
  405. -- icon id / first selected line: 0 / 0
  406. -- text alignment: 0
  407. -- font id: 156
  408. -- text size: 16
  409. -- style flags: 0
  410. -- line height: 17
  411. -- part name: Answer4
  412.  
  413.  
  414. -- part 62 (field)
  415. -- low flags: 01
  416. -- high flags: 2004
  417. -- rect: left=67 top=261 right=288 bottom=447
  418. -- title width / last selected line: 0
  419. -- icon id / first selected line: 0 / 0
  420. -- text alignment: 0
  421. -- font id: 156
  422. -- text size: 16
  423. -- style flags: 0
  424. -- line height: 17
  425. -- part name: Answer5
  426.  
  427.  
  428. -- part 55 (button)
  429. -- low flags: 00
  430. -- high flags: 0000
  431. -- rect: left=68 top=162 right=185 bottom=444
  432. -- title width / last selected line: 0
  433. -- icon id / first selected line: 0 / 0
  434. -- text alignment: 1
  435. -- font id: 0
  436. -- text size: 12
  437. -- style flags: 0
  438. -- line height: 16
  439. -- part name: Item1
  440. ----- HyperTalk script -----
  441. on mouseUp
  442.   set the hilite of me to not the hilite of me
  443. end mouseUp
  444.  
  445.  
  446.  
  447. -- part 57 (button)
  448. -- low flags: 00
  449. -- high flags: 0000
  450. -- rect: left=68 top=187 right=210 bottom=444
  451. -- title width / last selected line: 0
  452. -- icon id / first selected line: 0 / 0
  453. -- text alignment: 1
  454. -- font id: 0
  455. -- text size: 12
  456. -- style flags: 0
  457. -- line height: 16
  458. -- part name: Item2
  459. ----- HyperTalk script -----
  460. on mouseUp
  461.   set the hilite of me to not the hilite of me
  462. end mouseUp
  463.  
  464.  
  465.  
  466. -- part 58 (button)
  467. -- low flags: 00
  468. -- high flags: 0000
  469. -- rect: left=68 top=212 right=235 bottom=444
  470. -- title width / last selected line: 0
  471. -- icon id / first selected line: 0 / 0
  472. -- text alignment: 1
  473. -- font id: 0
  474. -- text size: 12
  475. -- style flags: 0
  476. -- line height: 16
  477. -- part name: Item3
  478. ----- HyperTalk script -----
  479. on mouseUp
  480.   set the hilite of me to not the hilite of me
  481. end mouseUp
  482.  
  483.  
  484.  
  485. -- part 64 (button)
  486. -- low flags: 00
  487. -- high flags: 0000
  488. -- rect: left=68 top=237 right=260 bottom=444
  489. -- title width / last selected line: 0
  490. -- icon id / first selected line: 0 / 0
  491. -- text alignment: 1
  492. -- font id: 0
  493. -- text size: 12
  494. -- style flags: 0
  495. -- line height: 16
  496. -- part name: Item4
  497. ----- HyperTalk script -----
  498. on mouseUp
  499.   set the hilite of me to not the hilite of me
  500. end mouseUp
  501.  
  502.  
  503.  
  504. -- part 65 (button)
  505. -- low flags: 00
  506. -- high flags: 0000
  507. -- rect: left=68 top=262 right=285 bottom=444
  508. -- title width / last selected line: 0
  509. -- icon id / first selected line: 0 / 0
  510. -- text alignment: 1
  511. -- font id: 0
  512. -- text size: 12
  513. -- style flags: 0
  514. -- line height: 16
  515. -- part name: Item5
  516. ----- HyperTalk script -----
  517. on mouseUp
  518.   set the hilite of me to not the hilite of me
  519. end mouseUp
  520.  
  521.  
  522.  
  523. -- part 40 (field)
  524. -- low flags: 81
  525. -- high flags: 2004
  526. -- rect: left=147 top=132 right=304 bottom=356
  527. -- title width / last selected line: 0
  528. -- icon id / first selected line: 0 / 0
  529. -- text alignment: 0
  530. -- font id: 156
  531. -- text size: 16
  532. -- style flags: 0
  533. -- line height: 17
  534. -- part name: MasterFeedback
  535.  
  536.  
  537. -- part 41 (button)
  538. -- low flags: 80
  539. -- high flags: A002
  540. -- rect: left=215 top=279 right=296 bottom=284
  541. -- title width / last selected line: 0
  542. -- icon id / first selected line: 0 / 0
  543. -- text alignment: 1
  544. -- font id: 0
  545. -- text size: 12
  546. -- style flags: 0
  547. -- line height: 16
  548. -- part name: Done
  549. ----- HyperTalk script -----
  550. on mouseUp
  551.   global answerTracker
  552.   lock screen
  553.   hide fld "MasterFeedback"
  554.   hide bg btn "Done"
  555. end mouseUp
  556.  
  557.  
  558.  
  559. -- part 54 (button)
  560. -- low flags: 00
  561. -- high flags: A004
  562. -- rect: left=68 top=321 right=340 bottom=213
  563. -- title width / last selected line: 0
  564. -- icon id / first selected line: 0 / 0
  565. -- text alignment: 1
  566. -- font id: 0
  567. -- text size: 12
  568. -- style flags: 0
  569. -- line height: 16
  570. -- part name: Check Answer
  571. ----- HyperTalk script -----
  572. on mouseUp
  573.   lock screen
  574.   put empty into theList
  575.   repeat with i = 1 to 5
  576.     if the hilite of bg btn ("item" & i) then put "t," after theList
  577.     else put "f," after theList
  578.   end repeat
  579.   delete last char of theList
  580.   if theList = "t,t,t,t,t"
  581.   then put fld "Feedback1" into fld "MasterFeedback"
  582. else put fld "Feedback2" into fld "MasterFeedback"
  583. show fld "MasterFeedback"
  584. show bg btn "Done"
  585. unlock screen
  586. end mouseUp
  587.  
  588.